home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 958 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  1.9 KB
  1. Date: Sun, 30 Jan 94 06:33:53 PST
  2. From: hyc@hanauma.jpl.nasa.gov (Howard Chu)
  3. Message-Id: <9401301433.AA03929@hanauma.jpl.nasa.gov>
  4. To: mint@atari.archive.umich.edu
  5. Subject: Millisecond-based alarm
  6.  
  7. I found Talarm to be pretty reliable, but I needed finer resolution, so I've
  8. added a Tmalarm that doesn't convert to seconds, etc. Talarm just calls
  9. Tmalarm now. It seems like a useful addition, what do you folks think?
  10. *** 1.1    1994/01/30 14:11:23
  11. --- dos.c    1994/01/30 14:29:10
  12. ***************
  13. *** 360,363 ****
  14. --- 360,378 ----
  15.   {
  16.       long oldalarm;
  17. +     oldalarm = t_malarm(x*1000);
  18. +     oldalarm = (oldalarm+999) / 1000;    /* convert to seconds */
  19. +     return oldalarm;
  20. + }
  21. + 
  22. + /*
  23. +  * t_malarm(x): set the alarm clock to go off in "x" milliseconds. returns
  24. +  * the old value ofthe alarm clock
  25. +  */
  26. + 
  27. + long ARGS_ON_STACK
  28. + t_malarm(x)
  29. +     long x;
  30. + {
  31. +     long oldalarm;
  32.       TIMEOUT *t;
  33.   
  34. ***************
  35. *** 378,383 ****
  36.       }
  37.   
  38. -     oldalarm = (oldalarm+999) / 1000;    /* convert to seconds */
  39. - 
  40.   /* we were just querying the alarm */
  41.       if (x < 0)
  42. --- 393,396 ----
  43. ***************
  44. *** 388,394 ****
  45.           canceltimeout(curproc->alarmtim);
  46.   
  47. ! /* add a new alarm, to occur in 1000*x milliseconds */
  48.       if (x)
  49. !         curproc->alarmtim = addtimeout(1000*x, alarmme);
  50.       else
  51.           curproc->alarmtim = 0;
  52. --- 401,407 ----
  53.           canceltimeout(curproc->alarmtim);
  54.   
  55. ! /* add a new alarm, to occur in x milliseconds */
  56.       if (x)
  57. !         curproc->alarmtim = addtimeout(x, alarmme);
  58.       else
  59.           curproc->alarmtim = 0;
  60. ***************
  61. *** 589,591 ****
  62. --- 602,605 ----
  63.       dos_tab[0x13b] = d_getcwd;
  64.       dos_tab[0x13c] = s_alert;
  65. +     dos_tab[0x13d] = t_malarm;
  66.   }
  67. *** 1.3    1994/01/30 13:04:54
  68. --- proto.h    1994/01/30 14:22:44
  69. ***************
  70. *** 86,89 ****
  71. --- 86,90 ----
  72.   long ARGS_ON_STACK p_pause P_((void));
  73.   long ARGS_ON_STACK t_alarm P_((long x));
  74. + long ARGS_ON_STACK t_malarm P_((long x));
  75.   long ARGS_ON_STACK s_ysconf P_((int which));
  76.   long ARGS_ON_STACK s_alert P_((char *msg));
  77.